#!
use strict;
use File::Basename;

my ($name,$path,$suffix) = fileparse($0);
print "path = ",$path, "\n";
print "name = ",$name,"\n";
print "suffix = ",$suffix, "\n";

print "basename = ",basename($0),"\n";